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| **F ILE**1D**BASRIGHT 
BBBBBBBB AAAAAA SSSSSSSS RRRRRRRR IIIII1 GGGGGGGG HH HH TITTTTITIT 
BBBBBBBB AAAAAA SSSSSSSS_ RRRRRRRR Il GGGGGGGG HH HH TTTTITTTTIT 
BB BB $$ RR RR II GG HH HH TT 
BB BB SS RR RR I! GG HH HH TT 
8B BB AA AA SS RR RR Il GG HH HH TT 
6B BB AA AA SS RR RR II GG HH H TT 
BBBBBBBB AA SSSSSS RRRRRRRR I! GG HHHHHHHHHH TT 
BBBBBBBB AA SSSSSS RRRRRRRR I! GG HHHHHHHHHH TT 
BB BB AAAAAAAAAA SS RR RR II GG GGGGGG HH HH TT 
BB BB AAAAAAAAAA SS RR RR Il GG GGGGGG HH HH TT 
BB 88 AA SS RR RR II GG GG HH HH TT eee 
BB BB AA AA SS RR RR II GG GG HH HH TT eeee 
BBBBBBBB AB AA SSSSSSSS RR RR III GGGGGG HH HH TT eeee 
BBBBBBBB AA AA SSSSSSSS RR RR III GGGGGG HH HH TT eeee 
LL IIIT] SSSSSSSS 
LL Hi] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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12288-1382 94:98:98 EBASRTL SRE BASRIGHT .B32;1 ’ 
H 1 0001 MODULE BASSRIGHT ( ! Extract the substring of the BASIC RIGHT 
; § B08 jOENT = '1-006' ! File: BASRIGHT. B32 . 
3 4 $002 BEGIN 
3 5 0005 1! 
3 § Boe : Seeeaneeeeeeecereceeceerteneeereterertetentetentereerenetenenereenteeeeteres 
3 He 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 S 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 19 i : ‘* ALL RIGHTS RESERVED. * 
$ '® * 
H i Bei§ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * 
. i 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 16 0016 1 !* OTH RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i? SEA ; hs TRANSFERRED. * 
3 ‘® * 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $ pos) ! :* CORPORATION. * 
3 it ® 
; 3 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 4 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 5 0025 1 !« * 
; @& 0026 1 !* * 
3 e7 VIVA RTI SIT IIS TITS TTT TTI IIIT ITT IT ICT IIT CLTITTT TTT TTTITITITITiTTITiTTTiTiTiTiTiTtTT 
; 0028 1! 
3 $3 0029 1 
3 0 0030 1 !++ ‘ : 
a 0031 1 ! FACILITY: String support Library 
; 2 itt 1! 
>> a 0035 1 ! ABSTRACT: 
; 0034 1! ; 
; #2 0035 1! This module extracts a substrin according to the — ; 
:  =36 0036 1! BASIC=-PLUS-2 syntax. It finds the subsse ing of a main string 
:. oF 0037 1! starting at the character pes Stren specified by the input parameter 
i, 0038 1! and continues through the last character of the string. This 
3 iB te : substring is copied to the destination string. 
: o goes , : ENVIRONMENT: User mode, AST level or not or mixed 
3 re $008 1 ! AUTHOR: R. Will, CREATION DATE: 19-Feb-79 
: «644 0044 1! 
: 45 0045 1 ! MODIFIED BY: 
3 46 Boag 3 
3; (47 0047 1! R. Will, 19-Feb-79: VERSION 01 
: 48 00468 1! 01 - original ; 
; («49 0049 1! = change Linkage and call to COPY routine. 15-mar-79 
; 3 0050 1 ! 1-003 - Change string linkages to start with STR$. JBS 04-JUN-1979 
> (51 0051 1 ! 1-004 = Change call to STRSSCOPY. JBS 16-JUL-1979 
3 2g boe8 : : 1-005 - eel ite on us ariable to improve the code generated. 
: 32 Bees ' : 1-006 = CALL STRRIGHT, DELETE THIS MODULE WHEN COMPILER CALLS STR. RW 11-Nov-79 
s 3 0056 1 
Se! a 0057 1 !<BLF/PAGE> 
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a a a ek a at ad ed ad od = = = od = = = 2 = 2 2s 2 8 = 


| SWITCHES: 
SWITCHES ADDRESSING_MODE (EXTERNAL = 


i LINKAGES: 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSRIGHT : NOVALUE; 


| INCLUDE FILES: 

REQUIRE “RILIN:Rivrsect’; 
MACROS: 

EQUATED SYMBOLS: 


PSECT DECLARATIONS 
ECLARE_PSECTS (BAS); 
OWN STORAGE: 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
STRSRIGHT; 


GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! Find the RIGHT of a string 


! Declare PSECTs code 


! Routine to do the copy 


a ee 
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EST_DESC, Pointer to destination descriptor 
SRC_BESC, Pointer to source descriptor 
CHAR_POS First character to be included 

) NOVACUE = 


+ 
FUNCTIONAL DESCRIPTION: 


This routine extracts the characters sterewne at the 

character position in the source string specified by the input 
parameter and continuing through the Last character of the source 
string and copies that ag ages é 

to the destination string (by JSB to STRSSCOPY_R_R8) according 

to the syntax of the class of the destination pen 

If the input character position is < 2 then the entire source 
string is copied. If the ‘nous character position is > the ey a 
of the source string, then the destination string becomes a nul 


NOUS WN—"OOONOu 
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s 105 0195 1 
; 104 818 1 
s > 197 1 
; 106 0198 1 
; 107 0199 1 
; 108 00 1 
; 109 ao 
5 6110 oF 
. 339 0205 1! 
3 ¥ ¢ 0206 1! 
. ¥ 0205 1! 
; 4116 8 06 1! 
s V5 O07 1! 
; 116 0208 1! 
3s Vig 0209 1! 
s Te 0210 1! 
3; (U9 0211 1! 
; 120 bsi¢ 1! 
Se 9213 1! string. 
3 Clee 0214 1! 
3; 25 0215 1 ! FORMAL PARAMETERS: 
: 124 0216 1! 
s 125 0217 1! DEST_DESC.wt.dx pointer to destination string descriptor 
> 126 og18 1! SRC_BESC.rt.dx pointer to source string descriptor 
3 ! i 8550 | CHAR_POS.rw.v character position in src to start substring 
; 129 $354 1 ! IMPLICIT INPUTS: 
3s 150 bee¢ 1! 
3 1351 0223 1! NONE 
3; 32 0224 1! 
s 35 0225 1 ! IMPLICIT OUTPUTS: 
3: 134 0226 1! 
s 135 Seer ys NONE 
; 1% 0228 1! 
. oo 0229 1 ! ROUTINE VALUE: 
; 138 0230 1 ! COMPLETION CODES: 
; 139 0231 1! 
}3 140 OS3§ 1! NONE 
(3 141 0233 1! 
3: 142 0234 1 ! SIDE EFFECTS: 
3 143 0235 1! 
3 6144 0236 1! NONE 
3 «6145 0237 1! 
3 «146 osa6 1 !-- 
: 147 0239 1 
: 148 0240 BEGIN 
3: «149 0241 
3 150 BSe§ MAP 
3 151 Ose 2 DEST_DESC : REF BLOCK (8,BYTE); 
; 13¢ 0244 2 
; 0245 MAP 
3 138 O5e$ SRC_DESC : REF BLOCK (8,BYTE); 
3; 156 $508 STRSRIGHT (DEST_DESC (0,0,0,0], SRC_DESC [0,0,0,0], CHAR_POS); 
» oar Tod RETURN; 
s 958 0250 1 END; ‘End of BAS$RIGHT 


PARSE Lent 


; Routine Size: 


159 
160 
193 
162 


Name 
_BASSCODE 


17 bytes, 


7E 
000000006 00 


Routine Base: 


dD 15 
VeeSep-19be 41:58:96 YeAsRT 


E BASS$RIGHT 
T \1-006\ 


s 


.EXTRN STRSRIGHT 
_BASSCODE,NOWRT, SHR, 
SENTRY BASSRIGHT, Save nothing 


best DESC -(SP) 
STRSRIGHT 


PIC,2 
0000 00000 

OC AC OF BR bRE 
04 AC 7D 0000 
03 FB 00009 

04 00010 


-BASSCODE + 0000 


'End of module 


PSECT SUMMARY 
Attributes 
17 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, 


Bytes 
PIC,ALIGN(2) 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASRIGHT/OBJ=0BJ$:BASRIGHT MSRC$:BASRIGHT/UPDATE=(ENH$:BASRIGHT ) 
17 ode 13 data bytes 


; Size: 


Run Time 
Slesced tier 
Lines/CPU Min: 
"irtaege Ale yy 
Used: 


“Min: 83 
18 pages 


wet Bes ay Complete 


0195. 
0248 


MENT CORPORATION 
AND PROPRIETARY 


= 
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